home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_196_kimportpict.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  694 b   |  19 lines
  1.  global colorauthoringpath
  2.   if there is a window KillFileName then close window KillFileName
  3.   global process
  4.   global ImportFileW
  5.   if there is a window importFileW then close window importFileW
  6.   global ImportPath
  7.   showdialog 1, "511", , false
  8.   if the result is "4" then
  9.     do restext ("TEXT", "newclippict", colorauthoringpath)
  10.     do restext ("TEXT", "Exit", colorauthoringpath)
  11.   end if
  12.   if the result is "3" then
  13.     do restext ("TEXT", "importPictRez", colorauthoringpath)
  14.     do restext ("TEXT", "Exit", colorauthoringpath)
  15.   end if
  16.   if the result is "2" then
  17.     do restext ("TEXT", "reztorezpict", colorauthoringpath)
  18.     do restext ("TEXT", "Exit", colorauthoringpath)
  19.   end if